home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / ada_gwu / pretty / paramdf1.ada < prev    next >
Text File  |  1996-01-30  |  1KB  |  24 lines
  1.          pragma Form_Set (SPECIAL);
  2.          pragma Form_Set (Page_Width => 80);
  3.          pragma Form_Set (Right_Comment_Column => 50);
  4.          pragma Form_Set (Colon_Offset => 15);
  5.          pragma Form_Set (Value_Offset => 15);
  6.          pragma Form_Set (Assign_Offset => 15);
  7.          pragma Form_Set (Pointer_Offset => 15);
  8.          pragma Form_Set (Indentation => 3);
  9.          pragma Form_Set (Using_Half_Indentation =>  TRUE);
  10.          pragma Form_Set (Using_Reverse_Indentation => TRUE);
  11.          pragma Form_Set (Types_Case =>  CAPITALIZE_FIRST);
  12.          pragma Form_Set (Enumeration_Case =>  UPPER_CASE);
  13.          pragma Form_Set (Identifier_Case =>  upper_case);
  14.          pragma Form_Set (Using_Echeloned_Declarations =>  true);
  15.          pragma Form_Set (Using_Echeloned_Assigns =>  true);
  16.          pragma Form_Set (Using_Colon_Alinement =>  true);
  17.          pragma Form_Set (Using_Value_Alinement =>  true);
  18.          pragma Form_Set (Using_Assign_Alinement =>  true);
  19.          pragma Form_Set (Using_Pointer_Alinement =>  true);
  20.          procedure foo is
  21.          begin
  22.            null;
  23.          end foo;
  24.